home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 56 / 64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_A.d64 / demo 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  360 lines
  1. 0 ze$=""+chr$(190)+chr$(193)+chr$(201)+chr$(193)+chr$(190)+chr$(128)+"
  2. 1 cc$[178]""[170][199](13)[170]"
  3. 2 gosub600:a$(1)="[200]auptformular":a$(2)="[203]opie fuer [197]inreicher
  4. 3 fl[178]48:rr$[178]"2.16":a$(3)[178]"chr$utschrift":[129]i[178]1[164]fl:xy$[178]xy$[170]"-":[130]
  5. 4 af$[178]""[170][199](128)[170][199](144)[170][199](128)[170][199](144):a$(4)[178]"peeklanko
  6. 5 print"[147][213]eberweisungsformulare bedrucken        (komplett)
  7. 6 [153]"(NULL)it automatischem peek(NULL)(NULL)-(NULL)erzeichnis":[153]"nh-151088-arr rev"rr$
  8. 7 [153]"(NULL)ro (NULL)eile max."fl"(NULL)eichen eingeben
  9. 8 print"[213]eberweisungsnummer "un$
  10. 10 input"[196]atum   [212][212][205][205]90[157][157][157][157][157][157][157][157]";d$:iflen(d$)><6then10
  11. 12 d1$=left$(d$,2):ifval(d1$)<1orval(d1$)>31then10
  12. 14 d3$=right$(d$,2):ifval(d3$)<88then10
  13. 16 d2$=mid$(d$,3,2):ifval(d2$)<1orval(d2$)>12then10
  14. 18 a$=d1$:gosub100:d1$=b$
  15. 20 a$=d2$:gosub100:d2$=b$
  16. 22 a$=d3$:gosub100:d$=d1$+"."+d2$+"."+b$
  17. 24 ue$=""+chr$(188)+chr$(193)+chr$(192)+chr$(161)+chr$(252)+chr$(128)+"
  18. 30 [133]"(NULL)ame des valmpfaengers ";ep$:[139][195](ep$)[177]fl[176]ep$[178]""[167]30
  19. 35 a$[178]ep$:[141]100:ep$[178]b$
  20. 40 [133]"seine (NULL)ontonummer ";kp$:[139]kp$[178]""[176][195](kp$)[177]10[167]40
  21. 45 a$[178]kp$:[141]100:kp$[178]b$
  22. 50 [133]"              peek(NULL)(NULL) ";bz$:[139][195](bz$)[179][177]8[175]bz$[177]""[167]50
  23. 52 [141]5000
  24. 55 a$[178]bz$:[141]100:bz$[178]b$
  25. 56 a[178][194](214):[153]""bk$:[151]214,a:[158]58732
  26. 60 [133]"     bei right$nstitut ";bk$:[139][195](bk$)[177]fl[176]bk$[178]""[167]60
  27. 65 a$[178]bk$:[141]100:bk$[178]b$
  28. 70 [133]"peeketrag str$(NULL)   0.00cmdcmdcmdcmdcmdcmd";dm$:[139][195](dm$)[177]11[176][195](dm$)[179]3[167]70
  29. 71 dm[178][197](dm$):[141]500
  30. 75 a$[178]dm$:[141]100:dm$[178]"*"[170]b$[170]"--
  31. 80 print"[194]itte [214]erwendungszweck eingeben ! (max."fl*2"[218]eichen)
  32. 85 [133]v$:[139][195](v$)[177]fl[172]2[167]80
  33. 95 v1$[178][200](v$,fl):[139]v1$[178]""[167]v$[178]"(NULL)eberweisung":[137]95
  34. 96 v2$[178][202](v$,fl[170]1):[139]v2$[178]""[167]v2$[178]xy$
  35. 97 [139][200](v2$,1)[178]" "[167]v2$[178][201](v2$,[195](v2$)[171]1):[137]97
  36. 98 a$[178]v1$:[141]100:v1$[178]b$:a$[178]v2$:[141]100:v2$[178]b$
  37. 99 [141]150:[141]160:[137]200
  38. 100 [143] zero
  39. 102 b$[178]"":[129]ji[178]1[164][195](a$)
  40. 104 c$[178][202](a$,ji,1):[139]c$[178]"0"[167]c$[178]ze$
  41. 106 b$[178]b$[170]c$:[130]:[142]
  42. 150 [153]"peeklanko bedrucken ? [j/n]
  43. 152 poke198,.
  44. 154 geta$:ifa$<>"j"anda$<>"n"then154
  45. 156 nh=3:ifa$="j"thennh=4
  46. 158 return
  47. 160 print"[193]dresse auf [211]eite 3 drucken ? [j/n]
  48. 162 [151]198,.
  49. 164 [161]ae$:[139]ae$[179][177]"j"[175]ae$[179][177]"n"[167]164
  50. 168 [142]
  51. 200 [153]"ascormulare nacheinander einlegen:":a$[178]rr$:[141]100:rr$[178]b$
  52. 202 [153]"str$ruckkopfoberkante an ascormularoberkante
  53. 203 a$=un$:gosub100:un$=b$
  54. 204 print"[204]inken [210]and an rechten [203]lebstreifenrand
  55. 206 [153]"8 (NULL)ines per inch (kleiner atnbstand)
  56. 207 fori=1tonh:print""a$(i)" ([211]eite"i"[157])
  57. 208 [151]198,.:[146]198,1
  58. 210 [153]"(NULL)kay. str$ruck laeuft
  59. 220 open4,4,7:print#4,"";
  60. 230 ifi<>3thenprint#4,"28 "d$;:ifi=1thenprint#4,"38[145][214]";
  61. 231 ifae$="n"ori<>3then240
  62. 232 print#4,"31[206]ikolaus [200]eusler
  63. 233 [152]4,"31(NULL)wengauerweg  18
  64. 234 print#4,"318"ze$ze$ze$"  [205]"ue$"nchen 71":print#4:goto250
  65. 240 print#4,cc$cc$cc$cc$cc$;
  66. 250 print#4,"04 "ep$:print#4,cc$cc$;
  67. 260 print#4,"04 "kp$"38 "bz$:print#4,cc$cc$;
  68. 270 print#4,"04 "bk$:print#4,cc$
  69. 280 print#4,"27 "dm$:print#4,cc$
  70. 290 print#4,"04 "v1$:print#4,cc$cc$;
  71. 295 print#4,"04 "v2$:print#4,cc$
  72. 300 print#4,"05[206]ikolaus [200]eusler";:ifi=3thenprint#4,"38 "d$;
  73. 305 print#4:print#4,cc$"28 "af$cc$;
  74. 310 print#4,"05734672929[213][194] rev"rr$" "un$"-"chr$(48+i)
  75. 312 close4:next
  76. 350 print"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  77. 352 [153]"  (NULL) atnlenleft$(NULL)(NULL)(NULL)chr$: (NULL)nbedingt den (NULL)
  78. 354 print"  [221] auf dem  [198]ormular auf- [221]
  79. 356 [153]"  (NULL) gedruckten peekval(NULL)(NULL)atnchr$  ge- (NULL)
  80. 358 print"  [221] nau  pruefen !  [198]ehler [221]
  81. 360 [153]"  (NULL) aufgrund von (NULL)undungs- (NULL)
  82. 362 print"  [221] fehlern sind nicht 100 [221]
  83. 364 [153]"  (NULL) prozentig ausgeschlos- (NULL)
  84. 366 print"  [221] sen !                  [221]
  85. 368 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantanexp
  86. 400 print"[198]ertig !!":poke198,.:end
  87. 500 dm=int(dm*100+.5)/100
  88. 502 dm$=str$(int(dm)):dm$=mid$(dm$,2)
  89. 504 dh$="
  90. 506 [139][195](dm$)[179]4[167]512
  91. 508 dh$[178]"."[170][201](dm$,3)[170]dh$
  92. 510 dm$[178][200](dm$,[195](dm$)[171]3):[137]506
  93. 512 dh$[178]dm$[170]dh$[170]",
  94. 514 dm=dm-int(dm):dm=int(.5+dm*100):dm$=str$(dm):dm$=mid$(dm$,2)
  95. 516 dm$=dh$+dm$+left$("00",2-len(dm$)):return
  96. 600 poke54287,100:poke54290,129
  97. 602 un$="":forkl=1to5:un$=un$+chr$(48+peek(54299)/25.6):next
  98. 610 return
  99. 5000 b1$=left$(bz$,2):b2$=mid$(bz$,4,3):b3$=mid$(bz$,3,4):b4$=left$(bz$,3)
  100. 5001 b5$=left$(bz$,1):b6$=mid$(bz$,4,1)
  101. 5002 ifb6$="0"thenc2$="[204][218][194]
  102. 5003 [139]b6$[178]"1"[167]c2$[178]"(NULL)ostgiroamt
  103. 5004 ifb6$="2"orb6$="3"thenc2$="[208]rivatbank
  104. 5005 [139]b6$[178]"4"[167]c2$[178]"lenommerzbank
  105. 5006 ifb6$="5"thenc2$="[211]parkasse
  106. 5007 [139]b6$[178]"6"[167]c2$[178]"(NULL)aiffeisenbank
  107. 5008 ifb6$="7"thenc2$="[196]eutsche [194]ank
  108. 5009 [139]b6$[178]"8"[167]c2$[178]"str$resdner peekank
  109. 5010 ifb6$="9"thenc2$="[214]olksbank
  110. 5014 [139]b2$[178]"101"[167]c2$[178]"peekfchr$
  111. 5018 ifb2$="107"thenc2$="[196]eutsche [211]par & [203]reditbank
  112. 5020 [139]b2$[178]"108"[167]c2$[178]"allgem. elsaessische peekank
  113. 5026 ifb2$="200"thenc2$="[200]ypobank
  114. 5028 [139]b2$[178]"202"[167]c2$[178]"peekayer. (NULL)ereinsbank
  115. 5030 ifb2$="204"thenc2$="[215]estmister [194]ank
  116. 5032 [139]b2$[178]"205"[167]c2$[178]"peekank fuer (NULL)ozialwirtschaft
  117. 5040 ifb2$="300"thenc2$="[214]ereins- und [215]estbank
  118. 5042 [139]b2$[178]"301"[167]c2$[178]"peekankhaus (NULL)ax asclessa
  119. 5044 ifb2$="302"thenc2$="[212]axis [194]ank
  120. 5046 [139]b2$[178]"303"[167]c2$[178]"(NULL)euschelbank
  121. 5048 ifb2$="304"thenc2$="[194]ankhaus [205]erck & [195]o
  122. 5050 [139]b2$[178]"306"[167]c2$[178]"peekankhaus atnufhaeuser
  123. 5052 ifb2$="308"thenc2$="[205]affeibank
  124. 5056 [139]b2$[178]"330"[167]c2$[178]"(NULL)chmidbank
  125. 5066 ifb2$="500"thenc2$="[204]andesbank [199]irozentrale
  126. 5068 [139]b2$[178]"501"[167]c2$[178]"chr$irokasse
  127. 5070 ifb2$="514"thenc2$="[203]reis- & [211]tadtsparkasse
  128. 5072 [139]b2$[178]"521"[167]c2$[178]"(NULL)reissparkasse
  129. 5080 ifb2$="604"thenc2$="[211]par- & [196]arlehenskasse
  130. 5082 [139]b2$[178]"605"[167]c2$[178]"(NULL)par- & (NULL)reditbank
  131. 5084 ifb2$="626"thenc2$="[214]olksbank
  132. 5086 [139]b2$[178]"628"[167]c2$[178]"(NULL)olks- & (NULL)aiffeisenbank
  133. 5088 ifb2$="693"thenc2$="evang. [211]par- & [203]reditbank
  134. 5097 [139]b2$[178]"901"[167]c2$[178]"(NULL)ekobank
  135. 5098 ifb2$="906"thenc2$="[196]tsch. [193]potheker- & [193]erztebank
  136. 5100 [139]b5$[178]"0"[167]c1$[178]"atnusland
  137. 5102 ifb5$="1"thenc1$="[194]erlin
  138. 5104 [139]b5$[178]"2"[167]c1$[178]"left$amburg
  139. 5106 ifb5$="3"thenc1$="[196]uesseldorf
  140. 5108 [139]b5$[178]"4"[167]c1$[178]"(NULL)uenster
  141. 5110 ifb5$="5"thenc1$="[198]rankfurt
  142. 5112 [139]b5$[178]"6"[167]c1$[178]"(NULL)tuttgart
  143. 5114 ifb5$="7"thenc1$="[205]uenchen
  144. 5200 [139]b1$[178]"21"[167]c1$[178]"(NULL)iel
  145. 5203 ifb1$="23"thenc1$="[204]uebeck
  146. 5204 [139]b1$[178]"24"[167]c1$[178]"(NULL)ueneburg
  147. 5205 ifb1$="25"thenc1$="[200]annover
  148. 5206 [139]b1$[178]"26"[167]c1$[178]"chr$oettingen
  149. 5207 ifb1$="27"thenc1$="[194]raunschweig
  150. 5208 [139]b1$[178]"28"[167]c1$[178]"(NULL)ldenburg
  151. 5209 ifb1$="29"thenc1$="[194]remen
  152. 5231 [139]b1$[178]"31"[167]c1$[178]"(NULL)oenchengladbach
  153. 5232 ifb1$="32"thenc1$="[203]refeld
  154. 5233 [139]b1$[178]"33"[167]c1$[178]"(NULL)uppertal
  155. 5234 ifb1$="34"thenc1$="[210]emscheid
  156. 5235 [139]b1$[178]"35"[167]c1$[178]"str$uisburg
  157. 5236 ifb1$="36"thenc1$="[197]ssen
  158. 5237 [139]b1$[178]"37"[167]c1$[178]"(NULL)oeln
  159. 5238 ifb1$="38"thenc1$="[194]onn
  160. 5239 [139]b1$[178]"39"[167]c1$[178]"atnachen
  161. 5261 ifb1$="41"thenc1$="[200]amm
  162. 5262 [139]b1$[178]"42"[167]c1$[178]"chr$elsenkirchen
  163. 5263 ifb1$="43"thenc1$="[194]ochum
  164. 5264 [139]b1$[178]"44"[167]c1$[178]"str$ortmund
  165. 5265 ifb1$="45"thenc1$="[200]agen
  166. 5266 [139]b1$[178]"46"[167]c1$[178]"(NULL)iegen
  167. 5268 ifb1$="48"thenc1$="[194]ielefeld
  168. 5269 [139]b1$[178]"49"[167]c1$[178]"(NULL)inden
  169. 5271 ifb1$="51"thenc1$="[215]iesbaden
  170. 5272 [139]b1$[178]"52"[167]c1$[178]"(NULL)assel
  171. 5273 ifb1$="53"thenc1$="[198]ulda
  172. 5274 [139]b1$[178]"54"[167]c1$[178]"(NULL)aiserslautern
  173. 5275 ifb1$="55"thenc1$="[205]ainz
  174. 5276 [139]b1$[178]"56"[167]c1$[178]"peekad (NULL)reuznach
  175. 5277 ifb1$="57"thenc1$="[203]oblenz
  176. 5279 [139]b1$[178]"59"[167]c1$[178]"(NULL)aarbruecken
  177. 5282 ifb1$="61"thenc1$="[199]oeppingen
  178. 5283 [139]b1$[178]"62"[167]c1$[178]"left$eilbronn
  179. 5284 ifb1$="63"thenc1$="[213]lm
  180. 5285 [139]b1$[178]"64"[167]c1$[178]"(NULL)eutlingen
  181. 5286 ifb1$="65"thenc1$="[210]avensberg
  182. 5287 [139]b1$[178]"66"[167]c1$[178]"(NULL)arlsruhe
  183. 5288 ifb1$="67"thenc1$="[205]annheim
  184. 5289 [139]b1$[178]"68"[167]c1$[178]"ascreiburg
  185. 5290 ifb1$="69"thenc1$="[203]onstanz
  186. 5291 [139]b1$[178]"71"[167]c1$[178]"peekad (NULL)eichenhall
  187. 5292 ifb1$="72"thenc1$="[193]ugsburg
  188. 5293 [139]b1$[178]"73"[167]c1$[178]"(NULL)lm
  189. 5294 ifb1$="74"thenc1$="[208]assau
  190. 5295 [139]b1$[178]"75"[167]c1$[178]"(NULL)egensburg
  191. 5296 ifb1$="76"thenc1$="[206]uernberg
  192. 5297 [139]b1$[178]"77"[167]c1$[178]"peekamberg
  193. 5298 ifb1$="78"thenc1$="[200]of
  194. 5299 [139]b1$[178]"79"[167]c1$[178]"(NULL)uerzburg
  195. 5300 ifb4$="215"thenc1$="[198]lensburg
  196. 5301 [139]b4$[178]"259"[167]c1$[178]"left$ildesheim
  197. 5302 ifb4$="265"thenc1$="[207]snabrueck
  198. 5303 [139]b4$[178]"292"[167]c1$[178]"peekremerhaven
  199. 5304 ifb4$="305"thenc1$="[206]euss
  200. 5305 [139]b4$[178]"314"[167]c1$[178]"(NULL)iersen
  201. 5306 ifb4$="324"thenc1$="[203]leve
  202. 5307 [139]b4$[178]"375"[167]c1$[178]"(NULL)everkusen
  203. 5308 ifb4$="478"thenc1$="[199]uetersloh
  204. 5309 [139]b4$[178]"505"[167]c1$[178]"(NULL)ffenbach
  205. 5310 ifb4$="506"thenc1$="[200]anau
  206. 5311 [139]b4$[178]"507"[167]c1$[178]"chr$elnhausen
  207. 5312 ifb4$="508"thenc1$="[196]armstadt
  208. 5313 [139]b4$[178]"509"[167]c1$[178]"peekensheim
  209. 5314 ifb4$="511"thenc1$="[204]imburg
  210. 5315 [139]b4$[178]"513"[167]c1$[178]"chr$iessen
  211. 5316 ifb4$="515"thenc1$="[215]etzlar
  212. 5317 [139]b4$[178]"516"[167]c1$[178]"str$illenburg
  213. 5318 ifb4$="518"thenc1$="[198]riedberg
  214. 5319 [139]b4$[178]"522"[167]c1$[178]"valschwege
  215. 5320 ifb4$="523"thenc1$="[203]orbach
  216. 5321 [139]b4$[178]"532"[167]c1$[178]"peekad left$ersfeld
  217. 5322 ifb4$="533"thenc1$="[205]arburg
  218. 5323 [139]b4$[178]"542"[167]c1$[178]"(NULL)irmasens
  219. 5324 ifb4$="545"thenc1$="[204]udwigshafen
  220. 5325 [139]b4$[178]"546"[167]c1$[178]"(NULL)eustadt
  221. 5326 ifb4$="547"thenc1$="[211]peyer
  222. 5327 [139]b4$[178]"548"[167]c1$[178]"(NULL)andau
  223. 5328 ifb4$="553"thenc1$="[215]orms
  224. 5329 [139]b4$[178]"562"[167]c1$[178]"right$dar-(NULL)berstein
  225. 5330 ifb4$="573"thenc1$="[194]etzdorf
  226. 5331 [139]b4$[178]"574"[167]c1$[178]"(NULL)euwied
  227. 5332 ifb4$="576"thenc1$="[205]ayen
  228. 5333 [139]b4$[178]"577"[167]c1$[178]"(NULL)emagen
  229. 5334 ifb4$="585"thenc1$="[212]rier
  230. 5335 [139]b4$[178]"586"[167]c1$[178]"peekitburg
  231. 5336 ifb4$="587"thenc1$="[215]ittich
  232. 5337 [139]b4$[178]"592"[167]c1$[178]"(NULL)eunkirchen
  233. 5338 ifb4$="593"thenc1$="[211]aarlouis
  234. 5339 [139]b4$[178]"594"[167]c1$[178]"(NULL)t. right$ngbert
  235. 5340 ifb4$="602"thenc1$="[215]aiblingen
  236. 5341 [139]b4$[178]"603"[167]c1$[178]"(NULL)indelfingen
  237. 5342 ifb4$="604"thenc1$="[204]udwigsburg
  238. 5343 [139]b4$[178]"611"[167]c1$[178]"valsslingen
  239. 5344 ifb4$="612"thenc1$="[206]uertingen
  240. 5345 [139]b4$[178]"613"[167]c1$[178]"(NULL)chwaebisch chr$muend
  241. 5346 ifb4$="614"thenc1$="[193]alen
  242. 5347 [139]b4$[178]"622"[167]c1$[178]"(NULL)chwaebisch left$all
  243. 5348 ifb4$="632"thenc1$="[200]eidenheim
  244. 5349 [139]b4$[178]"641"[167]c1$[178]"(NULL)uebingen
  245. 5350 ifb4$="642"thenc1$="[210]ottweil
  246. 5351 [139]b4$[178]"643"[167]c1$[178]"(NULL)uttlingen
  247. 5352 ifb4$="651"thenc1$="[198]riedrichshafen
  248. 5353 [139]b4$[178]"653"[167]c1$[178]"atnlbstadt
  249. 5354 ifb4$="654"thenc1$="[194]iberach
  250. 5355 [139]b4$[178]"662"[167]c1$[178]"peekaden-peekaden
  251. 5356 ifb4$="663"thenc1$="[194]ruchsal
  252. 5357 [139]b4$[178]"664"[167]c1$[178]"(NULL)ffenburg
  253. 5358 ifb4$="665"thenc1$="[210]astatt
  254. 5359 [139]b4$[178]"666"[167]c1$[178]"(NULL)forzheim
  255. 5361 ifb4$="672"thenc1$="[200]eidelberg
  256. 5362 [139]b4$[178]"673"[167]c1$[178]"(NULL)auberbischofsheim
  257. 5363 ifb4$="674"thenc1$="[205]osbach
  258. 5365 [139]b4$[178]"682"[167]c1$[178]"(NULL)ahr
  259. 5366 ifb4$="683"thenc1$="[204]oerrach
  260. 5367 [139]b4$[178]"684"[167]c1$[178]"peekad (NULL)aeckingen
  261. 5368 ifb4$="692"thenc1$="[211]ingen
  262. 5369 [139]b4$[178]"694"[167]c1$[178]"(NULL)illingen-(NULL)chwenningen
  263. 5371 ifb4$="703"thenc1$="[199]armisch-[208]artenkirchen
  264. 5372 [139]b4$[178]"711"[167]c1$[178]"(NULL)osenheim
  265. 5373 ifb4$="721"thenc1$="[201]ngolstadt
  266. 5374 [139]b4$[178]"722"[167]c1$[178]"(NULL)oerdlingen
  267. 5376 ifb4$="733"thenc1$="[203]empten
  268. 5377 [139]b4$[178]"734"[167]c1$[178]"(NULL)aufbeuren
  269. 5378 ifb4$="735"thenc1$="[204]indau
  270. 5380 [139]b4$[178]"741"[167]c1$[178]"str$eggendorf
  271. 5381 ifb4$="742"thenc1$="[211]traubing
  272. 5382 [139]b4$[178]"743"[167]c1$[178]"(NULL)andshut
  273. 5385 ifb4$="752"thenc1$="[193]mberg
  274. 5386 [139]b4$[178]"753"[167]c1$[178]"(NULL)eiden
  275. 5389 ifb4$="762"thenc1$="[198]uerth
  276. 5390 [139]b4$[178]"763"[167]c1$[178]"valrlangen
  277. 5391 ifb4$="764"thenc1$="[211]chwabach
  278. 5392 [139]b4$[178]"765"[167]c1$[178]"atnnsbach
  279. 5393 ifb4$="771"thenc1$="[203]ulmbach
  280. 5394 [139]b4$[178]"773"[167]c1$[178]"peekayreuth
  281. 5395 ifb4$="781"thenc1$="[205]arktredwitz
  282. 5396 [139]b4$[178]"783"[167]c1$[178]"lenoburg
  283. 5397 ifb4$="791"thenc1$="[203]itzingen
  284. 5398 [139]b4$[178]"793"[167]c1$[178]"(NULL)chweinfurt
  285. 5399 ifb4$="795"thenc1$="[193]schaffenburg
  286. 5400 [139]b3$[178]"1103"[167]c2$[178]"(NULL)umitomo peekank
  287. 5402 ifb3$="1105"thenc2$="[200]ypobank
  288. 5404 [139]b3$[178]"1107"[167]c2$[178]"peekank of (NULL)okyo
  289. 5406 ifb3$="1200"thenc2$="[194]erliner [194]ank
  290. 5408 [139]b3$[178]"1500"[167]c2$[178]"(NULL)tadtsparkasse
  291. 5410 ifb3$="1600"thenc2$="[196]t. [199]enossensch. [194]ank
  292. 5412 [139]b3$[178]"1900"[167]c2$[178]"(NULL)olksbank
  293. 5414 ifb3$="1901"thenc2$="[205]uenchner [194]ank
  294. 5416 [139]b3$[178]"2501"[167]c2$[178]"(NULL)reissparkasse
  295. 5418 ifb3$="2202"thenc2$="[194][200][198]
  296. 5449 [143] rz = rechenzentrum
  297. 5450 [139]b4$[178]"198"[167]c1$[178]"(NULL)(NULL) peekerlin
  298. 5451 ifb4$="295"thenc1$="[210][218] [194]remen
  299. 5452 [139]b4$[178]"296"[167]c1$[178]"(NULL)(NULL) left$annover
  300. 5453 ifb4$="297"thenc1$="[210][218] [203]iel
  301. 5454 [139]b4$[178]"298"[167]c1$[178]"(NULL)(NULL) left$amburg
  302. 5455 ifb4$="498"thenc1$="[210][218] [196]uesseldorf
  303. 5456 [139]b4$[178]"596"[167]c1$[178]"(NULL)(NULL) (NULL)ainz
  304. 5457 ifb4$="597"thenc1$="[210][218] [211]aarbruecken
  305. 5458 [139]b4$[178]"598"[167]c1$[178]"(NULL)(NULL) ascrankfurt
  306. 5459 ifb4$="698"thenc1$="[210][218] [211]tuttgart
  307. 5460 [139]b4$[178]"798"[167]c1$[178]"(NULL)(NULL) (NULL)uenchen
  308. 5500 ifb4$="206"thenc1$="[200]amburg-[193]ltona
  309. 5502 [139]b4$[178]"207"[167]c1$[178]"left$amburg-left$arburg
  310. 5504 ifb4$="212"thenc1$="[206]eumuenster
  311. 5506 [139]b4$[178]"213"[167]c1$[178]"(NULL)eustadt
  312. 5508 ifb4$="214"thenc1$="[210]endsburg
  313. 5510 [139]b4$[178]"217"[167]c1$[178]"left$usum
  314. 5512 ifb4$="218"thenc1$="[200]eide
  315. 5514 [139]b4$[178]"221"[167]c1$[178]"vallmshorn
  316. 5516 ifb4$="222"thenc1$="[201]tzehoe
  317. 5518 [139]b4$[178]"241"[167]c1$[178]"lenuxhaven
  318. 5520 ifb4$="254"thenc1$="[200]ameln
  319. 5522 [139]b4$[178]"255"[167]c1$[178]"(NULL)tadthagen
  320. 5524 ifb4$="256"thenc1$="[206]ienburg
  321. 5526 [139]b4$[178]"257"[167]c1$[178]"lenelle
  322. 5528 ifb4$="258"thenc1$="[213]elzen
  323. 5530 [139]b4$[178]"262"[167]c1$[178]"(NULL)ortheim
  324. 5532 ifb4$="263"thenc1$="[207]sterode
  325. 5534 [139]b4$[178]"266"[167]c1$[178]"(NULL)ingen
  326. 5536 ifb4$="267"thenc1$="[206]ordhorn
  327. 5538 [139]b4$[178]"268"[167]c1$[178]"chr$oslar
  328. 5540 ifb4$="272"thenc1$="[200]olzminden
  329. 5542 [139]b4$[178]"282"[167]c1$[178]"(NULL)ilhelmshaven
  330. 5544 ifb4$="284"thenc1$="[197]mden
  331. 5546 [139]b4$[178]"285"[167]c1$[178]"(NULL)eer
  332. 5548 ifb4$="342"thenc1$="[211]olingen
  333. 5550 [139]b4$[178]"354"[167]c1$[178]"(NULL)oers
  334. 5552 ifb4$="356"thenc1$="[215]esel
  335. 5554 [139]b4$[178]"362"[167]c1$[178]"(NULL)uelheim
  336. 5556 ifb4$="365"thenc1$="[207]berhausen
  337. 5558 [139]b4$[178]"382"[167]c1$[178]"valuskirchen
  338. 5560 ifb4$="384"thenc1$="[199]ummersbach
  339. 5562 [139]b4$[178]"386"[167]c1$[178]"(NULL)iegburg
  340. 5564 ifb4$="395"thenc1$="[196]ueren
  341. 5566 [139]b4$[178]"403"[167]c1$[178]"(NULL)heine
  342. 5568 ifb4$="412"thenc1$="[194]eckum
  343. 5570 [139]b4$[178]"414"[167]c1$[178]"(NULL)oest
  344. 5572 ifb4$="416"thenc1$="[204]ippstadt
  345. 5574 [139]b4$[178]"426"[167]c1$[178]"(NULL)ecklinghausen
  346. 5576 ifb4$="428"thenc1$="[194]ocholt
  347. 5578 [139]b4$[178]"443"[167]c1$[178]"(NULL)nna
  348. 5580 ifb4$="445"thenc1$="[201]serlohn
  349. 5582 [139]b4$[178]"452"[167]c1$[178]"(NULL)itten
  350. 5584 ifb4$="458"thenc1$="[204]uedenscheid
  351. 5586 [139]b4$[178]"462"[167]c1$[178]"(NULL)lpe
  352. 5588 ifb4$="464"thenc1$="[193]rnsberg
  353. 5590 [139]b4$[178]"472"[167]c1$[178]"(NULL)aderborn
  354. 5592 ifb4$="476"thenc1$="[196]etmold
  355. 5594 [139]b4$[178]"482"[167]c1$[178]"(NULL)emgo
  356. 5596 ifb4$="492"thenc1$="[194]uende
  357. 5598 [139]b4$[178]"494"[167]c1$[178]"left$erford
  358. 5600 bk$=c2$+" "+c1$:ifc2$=""thenbk$=c1$
  359. 5602 return
  360.